home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAEQU11.ZIP / EQU.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-11-15  |  5KB  |  478 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   TSTRING003(5)
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING022
  41.     String   STRING023
  42.     Int      INT001
  43.     Int      INT002
  44.     Int      INT003
  45.     Int      INT004
  46.     Int      INT005
  47.     Int      INT006
  48.     Int      INT007
  49.     Declare  Function FUNCTION001(String STRING021) Boolean
  50.     Declare  Function FUNCTION002() String
  51.     Declare  Function FUNCTION003() String
  52.     Declare  Function FUNCTION004() String
  53.     Declare  Procedure PROC001()
  54.     Declare  Procedure PROC003()
  55.     Declare  Procedure PROC004(Int INT008, Int INT009, Int INT010)
  56.     Declare  Procedure PROC005(String STRING017)
  57.     Declare  Procedure PROC006()
  58.     Declare  Procedure PROC007()
  59.     Declare  Procedure PROC008()
  60.     Declare  Procedure PROC009(String STRING011)
  61.     Declare  Procedure PROC010()
  62.  
  63. ;------------------------------------------------------------------------------
  64.  
  65.     PROC001()
  66.     PROC003()
  67.     PROC010()
  68.     PROC007()
  69.     BOOLEAN001 = FUNCTION001(ReadLine(STRING001, 8))
  70.     If (BOOLEAN001 == 1) Then
  71.         STRING008 = FUNCTION003()
  72.     Else
  73.         STRING008 = FUNCTION002()
  74.     Endif
  75.     PROC006()
  76.     PROC005(STRING008)
  77.     End
  78.  
  79. ;------------------------------------------------------------------------------
  80.  
  81.     Function FUNCTION003() String
  82.  
  83.     String   STRING010
  84.     String   STRING011
  85.  
  86.     STRING010 = FUNCTION004()
  87.     Newline
  88.     PROC008()
  89.     Newline
  90.     If (FUNCTION001(ReadLine(STRING001, 9)) == 0) Then
  91.         Newline
  92.         PrintLn ReadLine(STRING001, 13)
  93.         StartDisp 2
  94.         If (Exist(STRING002)) Then
  95.             Delete STRING002
  96.         Endif
  97.         KbdStuff Chr(13)
  98.         End
  99.     Else
  100.         PROC009(STRING010)
  101.     Endif
  102.     FUNCTION003 = STRING010
  103.  
  104.     EndFunc
  105.  
  106.  
  107. ;------------------------------------------------------------------------------
  108.  
  109.     Procedure PROC009(String STRING011)
  110.  
  111.     String   STRING012
  112.     String   STRING013
  113.     Int      INT002
  114.  
  115.     STRING012 = PPEPath() + "EQU" + String(PcbNode()) + ".MSG"
  116.     If (Exist(STRING012)) Then
  117.         Delete STRING012
  118.     Endif
  119.     FOpen 1, STRING012, 1, 0
  120.     FPutLn 1, "Private upload from " + U_Name() + " : " + STRING011
  121.     FPutLn 1, ""
  122.     For INT002 = 1 To 5
  123.         If (TSTRING003(INT002 - 1) <> "") Then
  124.             FPutLn 1, TSTRING003(INT002 - 1)
  125.         Endif
  126.     Next
  127.     FPutLn 1, ""
  128.     FPutLn 1, "@X08Posted via EQU v1.1 by Drew [PWA]@X07"
  129.     FPutLn 1, ""
  130.     FClose 1
  131.     Newline
  132.     Print ReadLine(STRING001, 10)
  133.     STRING013 = ReadLine(STRING001, 16)
  134.     Message 0, "SYSOP", U_Name(), STRING013, "R", 0, 0, 0, STRING012
  135.     PrintLn ReadLine(STRING001, 11)
  136.     Newline
  137.     Delete STRING012
  138.  
  139.     EndProc
  140.  
  141.  
  142. ;------------------------------------------------------------------------------
  143.  
  144.     Procedure PROC008()
  145.  
  146.     Int      INT003
  147.  
  148.     Newline
  149.     PrintLn ReadLine(STRING001, 12)
  150.     Newline
  151.     For INT003 = 1 To 5
  152.         Print ReplaceStr(ReadLine(STRING001, 15), "%FN%", String(INT003))
  153.         InputStr "_", TSTRING003(INT003 - 1), 7, 70, Mask_Ascii() + Mask_AlNum(), 8192 + 0 + 64
  154.         If ((INT003 == 1) && (TSTRING003(INT003 - 1) == "")) Then
  155.             PrintLn ReadLine(STRING001, 13)
  156.             Newline
  157.             StartDisp 2
  158.             KbdStuff Chr(13)
  159.             If (Exist(STRING002)) Then
  160.                 Delete STRING002
  161.             Endif
  162.             End
  163.             Continue
  164.         Endif
  165.         If (TSTRING003(INT003 - 1) == "") Then
  166.             Break
  167.         Endif
  168.     Next
  169.  
  170.     EndProc
  171.  
  172.  
  173. ;------------------------------------------------------------------------------
  174.  
  175.     Function FUNCTION004() String
  176.  
  177.     String   STRING015
  178.     String   STRING016
  179.  
  180.     Newline
  181.     Print ReadLine(STRING001, 14)
  182.     InputStr "_", STRING015, 7, 12, Mask_File(), 8192 + 0 + 2 + 4
  183.     If (STRING015 == "") Then
  184.         Newline
  185.         PrintLn ReadLine(STRING001, 13)
  186.         Newline
  187.         StartDisp 2
  188.         KbdStuff Chr(13)
  189.         If (Exist(STRING002)) Then
  190.             Delete STRING002
  191.         Endif
  192.         End
  193.     Else
  194.         FUNCTION004 = STRING015
  195.     Endif
  196.  
  197.     EndFunc
  198.  
  199.  
  200. ;------------------------------------------------------------------------------
  201.  
  202.     Procedure PROC007()
  203.  
  204.     String   STRING016
  205.  
  206.     If (Exist(PPEPath() + "EQU.PCB")) Then
  207.         DispFile PPEPath() + "EQU.PCB", 0
  208.     Endif
  209.     STRING016 = ReadLine(STRING001, 1)
  210.     If (Exist(STRING016)) Then
  211.         If (U_Sec >= S2I(ReadLine(STRING001, 2), 10)) Then
  212.             DispFile STRING016, 0
  213.         Endif
  214.     Endif
  215.     StartDisp 1
  216.     Newline
  217.  
  218.     EndProc
  219.  
  220.  
  221. ;------------------------------------------------------------------------------
  222.  
  223.     Procedure PROC006()
  224.  
  225.     Newline
  226.     FCreate 1, STRING002, 1, 0
  227.     FClose 1
  228.  
  229.     EndProc
  230.  
  231.  
  232. ;------------------------------------------------------------------------------
  233.  
  234.     Procedure PROC005(String STRING017)
  235.  
  236.     String   STRING018
  237.  
  238.     If (BOOLEAN001 == 1) Then
  239.         STRING018 = STRING017 + Chr(13) + "/ *** PRIVATE FILE(S) FOR THE SYSOP! ***" + Chr(13) + "/ Blind upload; FILE_ID.DIZ will be used." + Chr(13) + "/ Enhanced Quick Upload v1.1 by Drew [PWA]" + Chr(13)
  240.     Else
  241.         STRING018 = STRING017 + Chr(13) + "Blind upload; FILE_ID.DIZ will be used." + Chr(13) + "Enhanced Quick Upload v1.1 by Drew [PWA]" + Chr(13)
  242.     Endif
  243.     KbdStuff STRING018 + Chr(13)
  244.  
  245.     EndProc
  246.  
  247.  
  248. ;------------------------------------------------------------------------------
  249.  
  250.     Function FUNCTION002() String
  251.  
  252.     Int      INT004
  253.     String   STRING020
  254.     String   STRING021
  255.  
  256.     STRING020 = ""
  257.     For INT004 = 1 To 8
  258.         STRING020 = STRING020 + String(Random(9))
  259.     Next
  260.     STRING020 = STRING020 + ".ZIP"
  261.     FUNCTION002 = STRING020
  262.  
  263.     EndFunc
  264.  
  265.  
  266. ;------------------------------------------------------------------------------
  267.  
  268.     Function FUNCTION001(String STRING021) Boolean
  269.  
  270.     String   STRING022
  271.     Int      INT005
  272.     Int      INT006
  273.     Int      INT007
  274.     Boolean  BOOLEAN003
  275.     Int      INT008
  276.  
  277.     Print STRING021
  278.     INT005 = GetX()
  279.     Print STRING004 + Space(INT001)
  280.     INT006 = GetX()
  281.     Print STRING006
  282.     INT007 = 1
  283.     PROC004(INT007, INT005, INT006)
  284.     BOOLEAN003 = 0
  285.     While (BOOLEAN003 == 0) Do
  286.         STRING022 = Asc(Inkey())
  287.         If (STRING022 == 13) Then
  288.             BOOLEAN003 = 1
  289.             Continue
  290.         Endif
  291.         If (((STRING022 == 76) || (STRING022 == 68)) || (STRING022 == 44)) Then
  292.             Dec INT007
  293.             If (INT007 < 1) INT007 = 2
  294.             PROC004(INT007, INT005, INT006)
  295.             Continue
  296.         Endif
  297.         If (((STRING022 == 82) || (STRING022 == 85)) || (STRING022 == 46)) Then
  298.             Inc INT007
  299.             If (INT007 > 2) INT007 = 1
  300.             PROC004(INT007, INT005, INT006)
  301.             Continue
  302.         Endif
  303.         If ((STRING022 == 89) || (STRING022 == 121)) Then
  304.             INT007 = 2
  305.             PROC004(INT007, INT005, INT006)
  306.             BOOLEAN003 = 1
  307.             Continue
  308.         Endif
  309.         If ((STRING022 == 78) || (STRING022 == 110)) Then
  310.             INT007 = 1
  311.             PROC004(INT007, INT005, INT006)
  312.             BOOLEAN003 = 1
  313.         Endif
  314.     EndWhile
  315.     Newline
  316.     If (INT007 == 1) Then
  317.         FUNCTION001 = 0
  318.     Else
  319.         FUNCTION001 = 1
  320.     Endif
  321.  
  322.     EndFunc
  323.  
  324.  
  325. ;------------------------------------------------------------------------------
  326.  
  327.     Procedure PROC004(Int INT008, Int INT009, Int INT010)
  328.  
  329.     Select Case (INT008)
  330.         Case 2
  331.             Print Chr(13)
  332.             Forward INT009 - 1
  333.             Print STRING004
  334.             Print Chr(13)
  335.             Forward INT010 - 1
  336.             Print STRING007
  337.         Case 1
  338.             Print Chr(13)
  339.             Forward INT010 - 1
  340.             Print STRING006
  341.             Print Chr(13)
  342.             Forward INT009 - 1
  343.             Print STRING005
  344.     End Select
  345.  
  346.     EndProc
  347.  
  348.  
  349. ;------------------------------------------------------------------------------
  350.  
  351.     Procedure PROC003()
  352.  
  353.     STRING002 = PPEPath() + "EQUTMP." + String(PcbNode())
  354.     If (Exist(STRING002)) Then
  355.         Delete STRING002
  356.         KbdStuff Chr(13)
  357.         End
  358.     Endif
  359.  
  360.     EndProc
  361.  
  362.  
  363. ;------------------------------------------------------------------------------
  364.  
  365.     Procedure PROC010()
  366.  
  367.     String   STRING023
  368.  
  369.     STRING023 = PPEPath() + "ATTACH." + String(PcbNode())
  370.     If (Exist(STRING023)) Then
  371.         Delete STRING023
  372.     Else
  373.         STRING023 = ""
  374.         Print ReadLine(STRING001, 17)
  375.         InputStr "_", STRING023, 7, 12, Mask_File(), 0 + 64
  376.         KbdStuff STRING023 + Chr(13)
  377.         End
  378.     Endif
  379.  
  380.     EndProc
  381.  
  382.  
  383. ;------------------------------------------------------------------------------
  384.  
  385.     Procedure PROC001()
  386.  
  387.     GetUser
  388.     STRING001 = PPEPath() + "EQU.CFG"
  389.     INT001 = S2I(ReadLine(STRING001, 3), 10)
  390.     STRING004 = ReadLine(STRING001, 4)
  391.     STRING005 = ReadLine(STRING001, 5)
  392.     STRING006 = ReadLine(STRING001, 6)
  393.     STRING007 = ReadLine(STRING001, 7)
  394.     FClose -1
  395.  
  396.     EndProc
  397.  
  398.  
  399. ;------------------------------------------------------------------------------
  400. ;
  401. ; Usage report (before postprocessing)
  402. ;
  403. ; ■ Statements used :
  404. ;
  405. ;    6       End
  406. ;    45      Goto 
  407. ;    44      Let 
  408. ;    15      Print 
  409. ;    5       PrintLn 
  410. ;    30      If 
  411. ;    2       DispFile 
  412. ;    1       FCreate 
  413. ;    1       FOpen 
  414. ;    3       FClose 
  415. ;    6       FPutLn 
  416. ;    4       StartDisp 
  417. ;    1       GetUser
  418. ;    7       Delete 
  419. ;    3       InputStr 
  420. ;    1       Inc 
  421. ;    1       Dec 
  422. ;    14      Newline
  423. ;    6       KbdStuff 
  424. ;    4       Forward 
  425. ;    1       Message 
  426. ;    9       EndProc
  427. ;    4       EndFunc
  428. ;
  429. ;
  430. ; ■ Functions used :
  431. ;
  432. ;    1       -
  433. ;    40      +
  434. ;    9       -
  435. ;    22      ==
  436. ;    1       <>
  437. ;    4       <
  438. ;    3       <=
  439. ;    1       >
  440. ;    7       >=
  441. ;    28      !
  442. ;    7       &&
  443. ;    9       ||
  444. ;    1       Space()
  445. ;    17      Chr()
  446. ;    1       Asc()
  447. ;    1       Random()
  448. ;    2       U_Name()
  449. ;    1       Inkey()
  450. ;    5       String()
  451. ;    1       Mask_AlNum()
  452. ;    2       Mask_File()
  453. ;    1       Mask_Ascii()
  454. ;    6       PPEPath()
  455. ;    3       PcbNode()
  456. ;    19      ReadLine()
  457. ;    8       Exist()
  458. ;    2       S2I()
  459. ;    2       GetX()
  460. ;    1       ReplaceStr()
  461. ;
  462. ;------------------------------------------------------------------------------
  463. ;
  464. ; Analysis flags : No flag
  465. ;
  466. ;------------------------------------------------------------------------------
  467. ;
  468. ; Postprocessing report
  469. ;
  470. ;    3       For/Next
  471. ;    1       While/EndWhile
  472. ;    22      If/Then or If/Then/Else
  473. ;    1       Select Case
  474. ;
  475. ;------------------------------------------------------------------------------
  476. ;                 AEGiS Corp - Break the routines, code against the machines!
  477. ;------------------------------------------------------------------------------
  478.